home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD010b.dsk / HIGH RES EXPANSION.bas < prev    next >
BASIC Source File  |  2003-06-12  |  729b  |  13 lines
  1. 100  HGR2 
  2. 200  HCOLOR=  PDL(0)/34
  3. 300  HPLOT 190,96
  4. 400 A% = 139:B% = 141:C% = 95:D% = 139:E% = 141:F% = 97:G% = 95:H% = 97:I% = 139:J% = 95:K% = 97:L% = 141
  5. 450  HCOLOR=  PDL(0)/34
  6. 500  HPLOT A%,C% TO B%,C%: HPLOT D%,F% TO E%,F%: HPLOT I%,G% TO I%,H%: HPLOT L%,J% TO L%,K%
  7. 600 A% = A% -1:B% = B% +1:C% = C% -1:D% = D% -1:E% = E% +1:F% = F% +1:G% = G% -1:H% = H% +1:I% = I% -1:J% = J% -1:K% = K% +1:L% = L% +1
  8. 700  IF F% <190 GOTO 450
  9. 800  HCOLOR=  PDL(0)/34
  10. 850 :A% = A% +1:B% = B% -1:C% = C% +1:D% = D% +1:E% = E% -1:F% = F% -1:G% = G% +1:H% = H% -1:I% = I% +1:J% = J% +1:K% = K% -1:L% = L% -1
  11. 900  HPLOT A%,C% TO B%,C%: HPLOT D%,F% TO E%,F%: HPLOT I%,G% TO I%,H%: HPLOT L%,J% TO L%,K%
  12. 1000  IF C% <191 GOTO 800
  13. 1100  GOTO 200